home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / Ami-Back.adf / Rexx / ABScript.rexx
OS/2 REXX Batch file  |  1992-07-01  |  1KB  |  59 lines
  1. /*
  2.  * Test rexx script for Ami-Back
  3.  *
  4.  *
  5.  * WARNING *   * WARNING *
  6.  *
  7.  * Make sure your configuration file is setup for a SAFE backup and restore
  8.  * before running this script.  If not may not like the results
  9.  *
  10.  */
  11.  
  12. Options FailAt 100
  13. Options Results
  14.  
  15. /*-----------------------------*/
  16. /* Put Ami-Back in server mode */
  17. /*-----------------------------*/
  18. Address COMMAND "Run Ami-Back REXXSERV"
  19.  
  20. /*-----------------------------------------*/
  21. /* Wait for AmiBackRexx port to be created */
  22. /*-----------------------------------------*/
  23. do while ~SHOW(Ports, AmiBackRexx)
  24.     nop
  25. end
  26.  
  27. /*-----------------------------*/
  28. /* Set address to AmiBack port */
  29. /*-----------------------------*/
  30. Address AmiBackRexx
  31.  
  32. /*----------------------------------------*/
  33. /* Example to Load new configuration file */
  34. /*----------------------------------------*/
  35. LOAD "s:ami-back.config"
  36.  
  37. if rc > 0 then say 'Error: 'AMIBACKREXX.LASTERROR
  38.  
  39. /*---------------------------*/
  40. /* Example to start a backup */
  41. /*---------------------------*/
  42. BACKUP
  43.  
  44. if rc > 0 then say 'Error: 'AMIBACKREXX.LASTERROR
  45.  
  46. /*----------------------------*/
  47. /* Example to start a restore */
  48. /*----------------------------*/
  49. RESTORE
  50.  
  51. if rc > 0 then say 'Error: 'AMIBACKREXX.LASTERROR
  52.  
  53. /*--------------------------*/
  54. /* Example to Quit program  */
  55. /*--------------------------*/
  56. QUIT
  57.  
  58. if rc > 0 then say 'Error: 'AMIBACKREXX.LASTERROR
  59.